unit uEditLoginIP;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls,
  ExtCtrls;

type

  { TFmLoginIPEdit }

  TFmLoginIPEdit = class(TForm)
    BtnAppend: TButton;
    BtnDel: TButton;
    BtnSave: TButton;
    EdIP: TEdit;
    EdPort: TEdit;
    EDName: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ListView1: TListView;
    Panel1: TPanel;
    procedure BtnAppendClick(Sender: TObject);
    procedure BtnDelClick(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
  private

  public

  end;

var
  FmLoginIPEdit: TFmLoginIPEdit;

implementation

{$R *.lfm}

{ TFmLoginIPEdit }

procedure TFmLoginIPEdit.FormShow(Sender: TObject);
begin

end;

procedure TFmLoginIPEdit.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin

end;

procedure TFmLoginIPEdit.BtnDelClick(Sender: TObject);
begin

end;

procedure TFmLoginIPEdit.BtnAppendClick(Sender: TObject);
begin

end;

procedure TFmLoginIPEdit.BtnSaveClick(Sender: TObject);
begin

end;

end.

